home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / adikit.arc / PPDRV.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-12-01  |  3.9 KB  |  159 lines
  1. /*
  2.     PPDRV  --  Test    ADI printer plotter driver
  3.  
  4.     This driver can    either print a printer plot binary file
  5.     written    by the generic printer plotter code or be installed
  6.     as a resident driver.
  7. */
  8.  
  9. #include <stdio.h>
  10.  
  11. #define    VECTOR 0x7B           /* Interrupt    vector for installation    */
  12.  
  13. #define    FALSE 0
  14. #define    TRUE 1
  15.  
  16. #define    putprint(q) bdos(5, q)       /* Send character to    printer    */
  17.  
  18. /*  Command codes for processing routine  */
  19.  
  20. #define    FILELEVEL   1           /* Generic plot file    format level */
  21.  
  22. #define    BEGINPLOT   0x8001       /* Begin plot */
  23. #define    ENDPLOT        0x8002       /* End of plot */
  24. #define    ABORTPLOT   0x8003       /* Plot terminated by user */
  25.  
  26. static short install = FALSE;       /* Install as resident driver */
  27. static FILE *fp;           /* Input file pointer */
  28. static short gotfile = FALSE;       /* Obtained file flag */
  29. static char tbfr[132];
  30. static short icode;           /* Length / command code */
  31. struct pregs {
  32.     unsigned ax, bx, cx, dx;
  33. };
  34. static struct pregs r;
  35. static struct {
  36.     short level, xdots,    ydots, colour;
  37. } 
  38. cfg;
  39.  
  40. main(argc,argv)
  41. int argc; 
  42. char *argv[];
  43. {
  44.     short i, j,    m;
  45.     char *cp, opt;
  46.     register short c;
  47.     char bbuf[1000];           /* Bit buffer */
  48.  
  49.     for    (i=1; i    < argc;    i++) {
  50.     cp = argv[i];
  51.         if (*cp == '-') {
  52.         opt    = *(++cp);
  53.         if (islower(opt))
  54.         opt = toupper(opt);
  55.         switch (opt) {
  56.  
  57.             case 'I':
  58.         install    = TRUE;
  59.         break;
  60.  
  61.             case '?':
  62.         help();
  63.         exit();
  64.         }
  65.     } 
  66.     else {
  67.         if (gotfile) {
  68.                 printf("\nDuplicate file name.");
  69.         exit(1);
  70.         }
  71.         strcpy(tbfr, cp);
  72.             strcat(tbfr, ".prp");
  73.             if (fp = fopen(tbfr, "rb"))
  74.         gotfile    = TRUE;
  75.         else {
  76.                 printf("\nCannot open file %s", tbfr);
  77.         exit(1);
  78.         }
  79.     }
  80.     }
  81.     if (!gotfile & !install) {
  82.     help();
  83.     exit(1);
  84.     }
  85.  
  86.     if (install) {
  87.         fprintf(stderr, "Printer plotter driver installed at %03xh", VECTOR);
  88.     while (1) {
  89.         iwait(VECTOR, &r, &r);
  90.         icode = r.ax;
  91.         if (icode == ENDPLOT) {
  92.                 putprint('\14');     /* Form feed */
  93.                 fprintf(stderr, "\nEnd plot.\n");
  94.         } 
  95.         else if (icode == BEGINPLOT) {
  96.                 fprintf(stderr, "Begin plot: interface level %d.  %d by %d\n",
  97.         r.bx, r.cx, r.dx);
  98.         r.ax = TRUE;      /* Say initialised OK    */
  99.         r.bx = FALSE;      /* Select monochrome */
  100.         } 
  101.         else if (icode == ABORTPLOT) {
  102.                 fprintf(stderr, "\nPlot aborted.\n");
  103.         } 
  104.         else {
  105.         if (icode & 0x8000) {
  106.                     fprintf(stderr, "\n** Undefined control code %04xh **\n", icode);
  107.         }
  108.         if (icode) {
  109.             peek(r.cx, r.bx, bbuf, icode);
  110.             for    (i = 0;    i < icode; i++)
  111.             for (m = 0x80, j = 0; j    < 8; j++, m >>=    1)
  112.                             putprint((bbuf[i] & m) ? '*' : ' ');
  113.         }
  114.                 putprint('\n');
  115.         }
  116.     }
  117.     }
  118.  
  119.     while (TRUE) {
  120.     fread(&icode, sizeof icode, 1, fp);
  121.     if (icode == ENDPLOT) {
  122.             putprint('\14');     /* Form feed */
  123.             fprintf(stderr, "End plot.");
  124.         break;
  125.     } 
  126.     else if    (icode == BEGINPLOT) {
  127.         fread(&cfg,    sizeof cfg, 1, fp);
  128.             fprintf(stderr, "Begin plot: interface level %d.  %d by %d %s\n",
  129.         cfg.level, cfg.xdots, cfg.ydots,
  130.             cfg.colour ? "colour" : "monochrome");
  131.     } 
  132.     else {
  133.         if (icode &    0x8000)    {
  134.                 printf("\n** Undefined control code %04xh **", icode);
  135.         break;
  136.         }
  137.         if (icode)
  138.         fread(bbuf, icode, 1, fp);
  139.         for    (i = 0;    i < icode; i++)
  140.         for (m = 0x80, j = 0; j    < 8; j++, m >>=    1)
  141.                     putprint((bbuf[i] & m) ? '*' : ' ');
  142.             putprint('\n');
  143.     }
  144.     }
  145.  
  146.     fclose(fp);
  147. }
  148.  
  149. /*  HELP  --  Print information    on how to call    */
  150.  
  151. static help()
  152. {
  153.     printf("\nPPDRV  --  Printer plotter driver.  Call");
  154.     printf("\n           with PPDRV [options] input-file");
  155.     printf("\n");
  156.     printf("\n           Options:   -I   Install as INT %02xh",
  157.     VECTOR);
  158. }
  159.